home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / amos / packdir.amos / packdir.amosSourceCode
AMOS Source Code  |  1997-01-31  |  213b  |  15 lines
  1. F$=Fsel$("","","","")
  2. F$=Dir$
  3. A$=Dir First$(F$)
  4. While Left$(A$,1)="*"
  5. A$=Dir Next$
  6. Wend 
  7. Repeat 
  8. While Left$(A$,1)="*"
  9. A$=Dir Next$
  10. Wend 
  11. A$=Left$(A$,30)-" "
  12. Print A$
  13. Exec "Packlha "+F$+A$
  14. A$=Dir Next$
  15. Until A$=""